home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / soft / Codice / Libro Visual Basic e Database / ColDocumento.vb < prev    next >
Encoding:
Text File  |  2003-09-30  |  613 b   |  27 lines
  1. Public Class ColDocumento
  2.     Dim mcol As Hashtable
  3.     Public Sub New()
  4.         mcol = New Hashtable()
  5.     End Sub
  6.     Public Sub Remove(ByVal chiave As String)
  7.         mcol.Remove(chiave)
  8.     End Sub
  9.  
  10.     Public Function Item(ByVal chiave As String) As Documento
  11.         Return mcol.Item(chiave)
  12.     End Function
  13.  
  14.     Public Sub Add(ByVal obj As Documento)
  15.         mcol.Add(obj.Key, obj)
  16.     End Sub
  17.     Public Function Count() As Integer
  18.         Return mcol.Count
  19.     End Function
  20.  
  21.     Public Function Elements() As ICollection
  22.         Return mcol.Values
  23.     End Function
  24.  
  25.  
  26. End Class
  27.